VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Cal_Form1 
   Caption         =   "Port1-Open"
   ClientHeight    =   5220
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7515
   OleObjectBlob   =   "Cal_Form1.frx":0000
   StartUpPosition =   2  'CenterScreen
End
Attribute VB_Name = "Cal_Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Cmd_Cal1_Click()
        temp = Cal.Cal_Step_1
        Cmd_Cal1.BackColor = vbGreen
        dmy = SCPI.IEEE4882.OPC
        '--------next button get focus
        CommandButton2.SetFocus
End Sub

Private Sub CommandButton2_Click()

Cal_Form1.Hide
Cal_Form2.Cmd_Cal2.SetFocus
Cal_Form2.Label2.Caption = "Calibrating: " & stateName(StateNum - pos)
Cal_Form2.Show

End Sub
Private Sub UserForm_Initialize()
         DoEvents
         temp = Cal.CalIni()
         Label1.Caption = "Calibrating: " & stateName(StateNum - pos)
End Sub
